home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 6: Level 6 / 17 Bit - Level 6 (1998)(Epic Marketing)[!].iso / !applications! / iconian2.97 / macros / star.icrx < prev    next >
Text File  |  1996-09-07  |  639b  |  36 lines
  1. /* An example REXX script for Iconian */
  2.  
  3. address 'ICONIAN.1'
  4. options results
  5.  
  6. /* grab current mouse coords */
  7. 'getcoord x'
  8. mx=result
  9. 'getcoord y'
  10. my=result
  11.  
  12. /* Lock the GUI so the user can interfere! */
  13. lockgui
  14.  
  15. /* Select the connected-draw (freehand) drawing tool */
  16. freehand
  17.  
  18. /*Start at the top point of our star.  Nothing has been drawn yet. */
  19. moveto mx my-15
  20.  
  21. /* Start drawing, as if the left mouse button is down */
  22. leftmouse down
  23.  
  24. /* Draw lines connecting the points */
  25. moveto mx-12 my+16
  26. moveto mx+15 my-3
  27. moveto mx-15 my-3
  28. moveto mx+12 my+16
  29. moveto mx my-15
  30.  
  31. /* Finish drawing */
  32. leftmouse up
  33.  
  34. /* Let go of the GUI. */
  35. unlockgui
  36.